home *** CD-ROM | disk | FTP | other *** search
- object FrmHorLine: TFrmHorLine
- Left = 390
- Top = 140
- BorderStyle = bsDialog
- Caption = 'Horizontal rule'
- ClientHeight = 201
- ClientWidth = 200
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object lblSize: TLabel
- Left = 8
- Top = 8
- Width = 20
- Height = 13
- Caption = '&Size'
- FocusControl = EditSize
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblWidth: TLabel
- Left = 104
- Top = 8
- Width = 28
- Height = 13
- Caption = '&Width'
- FocusControl = EditWidth
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblAlign: TLabel
- Left = 8
- Top = 40
- Width = 23
- Height = 13
- Caption = '&Align'
- FocusControl = cbAlign
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblColor: TLabel
- Left = 8
- Top = 96
- Width = 24
- Height = 13
- Caption = '&Color'
- FocusControl = cbColor
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object btnOK: TButton
- Left = 8
- Top = 168
- Width = 89
- Height = 25
- Caption = 'OK'
- Default = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 7
- end
- object btnCancel: TButton
- Left = 104
- Top = 168
- Width = 89
- Height = 25
- Caption = 'Cancel'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 2
- ParentFont = False
- TabOrder = 8
- end
- object cbAlign: TComboBox
- Left = 40
- Top = 40
- Width = 153
- Height = 21
- Hint = 'alignment of the line'
- DropDownCount = 3
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'Left'
- 'Center'
- 'Right')
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object cbNoShade: TCheckBox
- Left = 8
- Top = 72
- Width = 75
- Height = 17
- Hint = 'display line flat ?'
- Caption = ' No shade'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object EditSize: TEdit
- Left = 40
- Top = 8
- Width = 49
- Height = 21
- TabOrder = 0
- end
- object EditWidth: TEdit
- Left = 144
- Top = 8
- Width = 49
- Height = 21
- TabOrder = 1
- end
- object cbColor: TComboBox
- Left = 40
- Top = 96
- Width = 153
- Height = 21
- Hint = 'Enter color name here'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'Aqua'
- 'Black'
- 'Blue'
- 'Fuchsia'
- 'Gray'
- 'Green'
- 'Lime'
- 'Maroon'
- 'Navy'
- 'Olive'
- 'Purple'
- 'Red'
- 'Silver'
- 'Teal'
- 'White'
- 'Yellow')
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnChange = cbColorChange
- end
- object btnColor: TBitBtn
- Left = 104
- Top = 128
- Width = 89
- Height = 22
- Hint = 'Select rule color'
- Caption = 'Select color'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = btnColorClick
- NumGlyphs = 2
- end
- object pnlColor: TPanel
- Left = 40
- Top = 127
- Width = 57
- Height = 23
- Hint = 'Current color'
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object DlgColor: TColorDialog
- Ctl3D = True
- Left = 8
- Top = 128
- end
- end
-